
uses
  MMSystem;

function SoundCardAvailable: Boolean;
begin
  Result := WaveOutGetNumDevs > 0;
end;

